home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / MODULA_2 / 2394.ZIP / M2TOOLS1.ZIP / BYTEOPS2.DEF next >
Text File  |  1990-08-03  |  430b  |  20 lines
  1. DEFINITION MODULE ByteOps2;
  2.  
  3.   FROM SYSTEM IMPORT BYTE, WORD;
  4.  
  5.   PROCEDURE LoByte (TwoBytes : WORD) : BYTE;
  6.  
  7.     (* Returns the 8 right-most bits from the word TwoBytes *)
  8.  
  9.  
  10.   PROCEDURE HiByte (TwoBytes : WORD) : BYTE;
  11.  
  12.     (* Returns the 8 left-most bits from the word TwoBytes *)
  13.  
  14.  
  15.   PROCEDURE CombBytes (HighByte, LowByte : BYTE) : WORD;
  16.  
  17.     (* Combines two bytes to produce a word *)
  18.  
  19.  
  20. END ByteOps2.